home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / biz / demo / mrback_b_demo114.lha / ARexx_Scripts / tapebackup.mrbk < prev    next >
Text File  |  1991-04-01  |  1KB  |  80 lines
  1. /*   tapebackup.mrbk            */
  2. /* This simple program runs MRBackup, performs a backup, then terminates. 
  3.  * It utilizes the takecontrol/releasecontrol pair to assure that there
  4.  * are no interactive capabilities while in progress.
  5.  */
  6.  
  7. signal on ERROR
  8. signal on BREAK_C
  9.  
  10. options results
  11.  
  12. if ~(Show('P', 'MRBackup_#1')) then do
  13.     say "You must run MRBackup first. With a little work, you could"
  14.     say "get this ARexx script to do it for you."
  15.     exit 1
  16. end
  17.  
  18. address "MRBackup_#1"
  19. poptofront
  20.  
  21. backpath = "MRTape:"
  22. setbackpath backpath
  23. if rc ~= 0 then do
  24.     say "Failed to set backup path to " || backpath
  25.     quit
  26.     exit 1
  27. end
  28.  
  29. homepath = "DH0:Tools"
  30. sethomepath homepath
  31. if rc ~= 0 then do
  32.     say "Failed to set home path to " || homepath
  33.     quit
  34.     exit 1
  35. end
  36.  
  37. catalogname = "S:ToolsBackup.cat"
  38. setcatalogname catalogname
  39. if rc ~= 0 then do
  40.     say "I failed to set the catalog name to " || catalogname
  41.     quit
  42.     exit 1
  43. end
  44.  
  45. setfilemode "Replace"
  46. setlistpath "S:ToolsBackup.list"
  47. setlogpath "S:ToolsBackup.log"
  48.  
  49. takecontrol
  50. backup
  51. releasecontrol
  52.  
  53. if rc ~= 0 then do
  54.     say "Backup failed; error code: " || rc
  55.     quit
  56.     exit 1
  57. end
  58.  
  59. quit
  60.  
  61. exit 0
  62.  
  63.  
  64. /*------------------------------------------------------------------*/
  65.  
  66. break_c:
  67.  
  68. say "*** Control-C recieved.  Stopped by user. ***"
  69. exit 5
  70.  
  71. /*------------------------------------------------------------------*/
  72.  
  73. error:
  74.  
  75. say "Error"
  76. exit 6
  77.  
  78. /*------------------------------------------------------------------*/
  79.  
  80.